home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / bbs / FList_211.lha / FList / Rexx / FListDelMrk.Trans < prev    next >
Text File  |  1997-01-19  |  1KB  |  66 lines
  1. /**/
  2. options results
  3. path="BBS:Extras/FListSaveDL/"
  4. userinfo 'a'
  5. name=result
  6. userinfo 'x'
  7. ansi=result
  8.  
  9. if ansi="ON" then do
  10.     up="A"
  11.     lclr=""
  12.     red=""
  13.     grn=""
  14.     yel=""
  15.     blu=""
  16.     mag=""
  17.     cyn=""
  18.     wht=""
  19.     bred=""
  20.     bgrn=""
  21.     byel=""
  22.     bblu=""
  23.     bmag=""
  24.     bcyn=""
  25.     bwht=""
  26.     bld=""
  27.     ubld=""
  28.     fsh=""
  29.     clr=""
  30. end
  31. else do
  32.     up=""
  33.     lclr=""
  34.     red=""
  35.     grn=""
  36.     yel=""
  37.     blu=""
  38.     mag=""
  39.     cyn=""
  40.     wht=""
  41.     bred=""
  42.     bgrn=""
  43.     byel=""
  44.     bblu=""
  45.     bmag=""
  46.     bcyn=""
  47.     bwht=""
  48.     bld=""
  49.     ubld=""
  50.     fsh=""
  51.     clr=""
  52. end
  53. if exists(path||name'.sdl') then do
  54.     newline
  55.     send clr||bld||blu"["cyn"FList"blu"]"wht" Delete your saved file(s) list, Y/n? "yel
  56.     do i=5 to 1 by -1
  57.         send right(i,2,'0')'D'
  58.         address command "wait 1 sec"
  59.         maygetchar
  60.         if upper(result)~="NOCHAR"&upper(result)="N" then do;send clr||red"["bld"No!"clr||red"]";i=-1;end
  61.         else if upper(result)~="NOCHAR"&upper(result)~="N" then do;i=-1;send clr||grn"["bld"Yes!"clr||grn"]";address command 'delete "'path||name'.sdl" quiet noreq';end
  62.     end
  63.     if i=0 then do;send clr||grn"["bld"Yes!"clr||grn"]";address command 'delete "'path||name'.sdl" quiet noreq';end
  64.     newline
  65. end
  66.